﻿Public Class IlacKurulGiris : Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("İlaç kurul girişi", "Sigortalı ve ilaç bilgilerini girin.")
				AddDataWindow()
			Case EventType.Shown
				DataWindow.AddGroup("Kimlik bilgileri", "sdrm;kimlik;sno;adi;soyadi;hturu;kararno")
				DataWindow.AddGroup("İlaç bilgileri", "ilac;bastar;bittar")
				DataWindow.AddGroup("Kayıt bilgileri", "islemtar*;kaykul*;rowid*")
				Buttons.Show("Save")
		End Select
	End Sub

End Class
